diff --git a/scheme/vm/arch.scm b/scheme/vm/arch.scm
index 5287e07..d2f5fd1 100644
--- a/scheme/vm/arch.scm
+++ b/scheme/vm/arch.scm
@@ -440,7 +440,7 @@
       (shared-binding-is-import?)
       (shared-binding-ref shared-binding-set!))
     (port port? make-port
-      (port-handler)
+      (port-handler set-port-handler!)
       (port-status  set-port-status!)
       (port-lock    set-port-lock!)
       (port-locked? set-port-locked?!)