Index: c-backend.scm
===================================================================
--- c-backend.scm	(revision 15578)
+++ c-backend.scm	(working copy)
@@ -1277,7 +1277,7 @@
 	       ((const) (foreign-argument-conversion (cadr type)))
 	       ((enum) "C_num_to_int(")
 	       ((ref)
-		(string-append "*(" (foreign-type-declaration (car type) "*")
+		(string-append "*(" (foreign-type-declaration (cadr type) "*")
 			       ")C_c_pointer_nn("))
 	       ((instance-ref)
 		(string-append "*(" (cadr type) "*)C_c_pointer_nn("))
