Index: /trunk/ccl/lib/time.lisp
===================================================================
--- /trunk/ccl/lib/time.lisp	(revision 269)
+++ /trunk/ccl/lib/time.lisp	(revision 270)
@@ -165,5 +165,5 @@
 
 (defun sleep (seconds)
-  (when (minusp seconds) (report-bad-arg seconds '(number 0 *)))
+  (when (minusp seconds) (report-bad-arg seconds '(real 0 *)))
   (let* ((tps *ticks-per-second*)
 	 (npt *ns-per-tick*)