diff --git a/collects/tests/r6rs/syntax-case.ss b/collects/tests/r6rs/syntax-case.ss
index 4174900307..7de66cf00f 100644
--- a/collects/tests/r6rs/syntax-case.ss
+++ b/collects/tests/r6rs/syntax-case.ss
@@ -301,6 +301,10 @@
            (guard (v [#t v])
                   (syntax-violation "apple" "bad" 'worm)))
           "apple")
+    (test (who-condition?
+           (guard (v [#t v])
+                  (syntax-violation #f "bad" 'worm)))
+          #f)
     (test (condition-who
            (guard (v [#t v])
                   (syntax-violation #f "bad" #'worm)))
@@ -315,8 +319,8 @@
           #f)
     (test (syntax-violation-subform
            (guard (v [#t v])
-                  (syntax-violation 'apple "bad" '(worm) '(another))))
-          '(another))
+                  (syntax-violation 'apple "bad" '(worm) '((another)))))
+          '((another)))
 
 
     ;;