diff --git a/collects/2htdp/private/checked-cell.ss b/collects/2htdp/private/checked-cell.ss
index 6027ca0c51..d5fc56f6c1 100644
--- a/collects/2htdp/private/checked-cell.ss
+++ b/collects/2htdp/private/checked-cell.ss
@@ -83,7 +83,9 @@
     ;; -> ok?
     (define/public (get) value)
     
-    (super-new)))
+    (super-new)
+    
+    (when pb (show-state))))
 
 ; (define c (new checked-cell% [msg "World"] [value0 1] [ok? positive?]))
 ; (send c set "tick" 10)
diff --git a/collects/2htdp/private/world.ss b/collects/2htdp/private/world.ss
index ba3967f643..9b949c1f89 100644
--- a/collects/2htdp/private/world.ss
+++ b/collects/2htdp/private/world.ss
@@ -53,7 +53,7 @@
       (init-field
        world0            ;; World
        (name #f)         ;; (U #f String)
-       (state #f)         ;; Boolean 
+       (state #f)        ;; Boolean 
        (register #f)     ;; (U #f IP)
        (check-with True) ;; Any -> Boolean 
        (tick K))         ;; (U (World -> World) (list (World -> World) Nat))