diff --git a/webactions/clpage.cl b/webactions/clpage.cl
index 3ff2d623..97991a79 100644
--- a/webactions/clpage.cl
+++ b/webactions/clpage.cl
@@ -780,7 +780,7 @@ to separate the module part from the function name part, ~s doesn't" name))
     
     `(setf (gethash ,function
 		    (find-clp-module ,module :create t))
-       #'(lambda ,args ,@body))))
+       (named-function (:clp ,name) (lambda ,args ,@body)))))