diff --git a/src/clos/slot.lsp b/src/clos/slot.lsp
index c25039ae1..c1696116f 100644
--- a/src/clos/slot.lsp
+++ b/src/clos/slot.lsp
@@ -98,8 +98,8 @@
   ;;
   (if (constantp form)
       (let ((value (eval form)))
-	(cond ((null value) ''si::constantly-nil)
-	      ((eq value t) ''si::constantly-t)
+	(cond ((null value) '#'si::constantly-nil)
+	      ((eq value t) '#'si::constantly-t)
 	      (t `(constantly ,form))))
       `#'(lambda () ,form)))