diff --git a/modules/game/actors.scm b/modules/game/actors.scm
index 8a8d9c1..2c0af90 100644
--- a/modules/game/actors.scm
+++ b/modules/game/actors.scm
@@ -255,14 +255,12 @@
        ('copper
         ;; TODO: Match other shapes? This only allows left-to-right
         ;; circuit flow.
-        (match (pk 'GRID ($ grid-info 'wireworld-neighbor-grid x y))
+        (match ($ grid-info 'wireworld-neighbor-grid x y)
           (#('electron-head #f #f
                             #f _ 'copper
                             'electron-head #f #f)
-           (pk 'COOL)
            ($ state 'electron-head))
-          (_ ($ state 'copper)))))
-     (pk 'NEW-STATE ($ state)))
+          (_ ($ state 'copper))))))
     (('alive?) #t)
     (('describe) `(and-gate ,position))
     (('collide other offset grid-info) #f)))