diff --git a/tk-silica/xt-graphics.lisp b/tk-silica/xt-graphics.lisp
index 74eca1f221d6ba7547f2e723be2e97785bf6853a..66cdeca14366a231fa17716b459d907750d703e2 100644
--- a/tk-silica/xt-graphics.lisp
+++ b/tk-silica/xt-graphics.lisp
@@ -1029,9 +1029,9 @@
 	     (y (pop positions)))
 	(push `(valid-point-p ,x ,y) forms)))
     `(unless (and ,@forms)
-       (if* *discard-illegal-graphics*
-	  then (return-from ,function-name)
-	  else (error "Coordinate(s) out of (signed-byte 16) range")))))
+       (if *discard-illegal-graphics*
+           (return-from ,function-name)
+           (error "Coordinate(s) out of (signed-byte 16) range")))))
 
 (defmacro with-single-floats (variable-bindings &body body)
   (flet ((binding-var (x) (if (atom x) x (car x)))