diff --git a/mulinh.tex b/mulinh.tex
index 50d381d..95ae7ee 100644
--- a/mulinh.tex
+++ b/mulinh.tex
@@ -64,11 +64,10 @@ \section{Multiple inheritance}
 \scmdribble{
 (define create-class-proc
   (lambda (direct-superclasses slots method-names method-vector)
-    (let ((class-precedence-list
-           (delete-duplicates
-            (append-map
-             (lambda (c) (vector-ref c 2))
-             direct-superclasses))))
+    (let ((class-precedence-list (append direct-superclasses (delete-duplicates
+                                   (append-map
+                                    (lambda (c) (vector-ref c 2))
+                                    direct-superclasses)))))
       (send 'make-instance standard-class
             'class-precedence-list class-precedence-list
             'slots
diff --git a/obj1.tex b/obj1.tex
index 33cbf77..888424f 100644
--- a/obj1.tex
+++ b/obj1.tex
@@ -121,7 +121,7 @@ \section{A simple object system}
 \n This  binds \q{my-bike} to the instance
 
 \q{
-#(<trivial-bike-class> cromoly 18.5 alivio)
+#(<trivial-bike-class> cromoly alivio 18.5)
 }
 
 \n where \q{<trivial-bike-class>} is a Scheme datum (another