diff --git a/exercises/practice/say/.meta/example.lisp b/exercises/practice/say/.meta/example.lisp
index ac1b0def..e6f0036c 100644
--- a/exercises/practice/say/.meta/example.lisp
+++ b/exercises/practice/say/.meta/example.lisp
@@ -5,5 +5,5 @@
 (in-package :say)
 
 (defun say (number)
-  (unless (or (minusp number) (>= number (expt 10 12)))
-    (remove #\, (format nil "~R" number))))
+  (when (< -1 number (expt 10 12))
+    (format nil "~r" number)))