diff --git a/src/cmp/cmptop.lsp b/src/cmp/cmptop.lsp
index de5d34d59..d6879a67c 100644
--- a/src/cmp/cmptop.lsp
+++ b/src/cmp/cmptop.lsp
@@ -681,7 +681,7 @@
   (unless (and (not (fun-closure fun))
 	       (eq *destination* 'TRASH))
     (return-from c2fset
-      (c2call-global 'SI:FSET c1forms 'NIL (c1form-primary-type (second c1forms)))))
+      (c2call-global 'SI:FSET c1forms (c1form-primary-type (second c1forms)))))
   (let ((*inline-blocks* 0)
 	(loc (data-empty-loc)))
     (push (list loc fname fun) *global-cfuns-array*)