- (make-run-request kont #f))))))
-
-(define-syntax-rule (%8sync-port-remove port)
- (%8sync-abort-to-prompt
+ (make-run-request
+ ;; What's with returning #f to kont?
+ ;; Otherwise we sometimes get errors like
+ ;; "Zero values returned to single-valued continuation""
+ (wrap (kont #f)) #f))))))
+
+(define-syntax-rule (8sync-port-remove port)
+ (8sync-abort-to-prompt