Fix typo in comment

diff --git a/oop/goops.scm b/oop/goops.scm
index b62959a..faf719b 100644 (file)
--- a/oop/goops.scm
+++ b/oop/goops.scm
@@ -1555,7 +1555,7 @@
 
 (define (change-object-class old-instance old-class new-class)
   (let ((new-instance (allocate-instance new-class '())))
-    ;; Initalize the slot of the new instance
+    ;; Initialize the slots of the new instance
     (for-each (lambda (slot)
                (if (and (slot-exists-using-class? old-class old-instance slot)
                         (eq? (slot-definition-allocation