--- srfi-34.test.~1.1.~	2003-04-30 10:06:33.000000000 +1000
+++ srfi-34.test	2003-07-17 07:57:18.000000000 +1000
@@ -37,6 +37,10 @@
 
 (with-test-prefix "SRFI 34"
 
+  (pass-if "cond-expand"
+    (cond-expand (srfi-34 #t)
+		 (else    #f)))
+
   (pass-if "example 1"
 	   (expr-prints-and-evals-to?
 	    '(call-with-current-continuation