--- old-chicken-darcs-ssh/support.scm	2007-07-02 00:31:21.000000000 -0500
+++ new-chicken-darcs-ssh/support.scm	2007-07-02 00:31:21.000000000 -0500
@@ -993,6 +993,8 @@
 				 '#f) ) ) ]
 		       [('nonnull-instance . _)
 			`(slot-ref ,param 'this) ]
+		       [('enum . _)
+			(if unsafe param `(##sys#foreign-integer-argument ,param) ) ]
 		       [('const t) (repeat t)]
 		       [((or 'nonnull-pointer 'nonnull-c-pointer) . _)
 			`(##sys#foreign-pointer-argument ,param) ]