Index: /trunk/ccl/lib/level-2.lisp
===================================================================
--- /trunk/ccl/lib/level-2.lisp	(revision 493)
+++ /trunk/ccl/lib/level-2.lisp	(revision 494)
@@ -402,7 +402,7 @@
   (%eval-redef %get-bit (ptr offset))
   (%eval-redef %set-bit (ptr offset val))
-  (%eval-redef %get-double-float (ptr &optional offset)
+  (%eval-redef %get-double-float (ptr &optional (offset 0))
 	       (%get-double-float ptr offset))
-  (%eval-redef %get-single-float (ptr &optional offset)
+  (%eval-redef %get-single-float (ptr &optional (offset 0))
 	       (%get-single-float ptr offset))
   (%eval-redef %set-double-float (p o &optional (new (prog1 o (setq o 0))))