Index: main/binary-class.lisp
===================================================================
--- main/binary-class.lisp	(revision main,1)
+++ main/binary-class.lisp	(revision main,2)
@@ -46,12 +46,12 @@
     (cond
       ((string= format "YYMMDD")
-       (let* ((year (read-binary 'unsigned stream))
-              (month (read-binary 'unsigned stream))
-              (day (read-binary 'unsigned stream)))
+       (let* ((year (read-binary :unsigned stream))
+              (month (read-binary :unsigned stream))
+              (day (read-binary :unsigned stream)))
          (encode-universal-time 0 0 0 day month year)))
       ((string= format "YYYYMMDD")
-       (let* ((year (read-binary 'unsigned stream 2))
-              (month (read-binary 'unsigned stream))
-              (day (read-binary 'unsigned stream)))
+       (let* ((year (read-binary :unsigned stream 2))
+              (month (read-binary :unsigned stream))
+              (day (read-binary :unsigned stream)))
          (encode-universal-time 0 0 0 day month year)))
       (t
@@ -75,5 +75,5 @@
                              `(setf (slot-value rec ',name)
                                     (read-binary ',type stream ,format))
-                             `(read-binary 'unsigned stream ,format))))
+                             `(read-binary :unsigned stream ,format))))
                      defs)
            rec)))))