diff --git a/collects/r6rs/private/identifier-syntax.ss b/collects/r6rs/private/identifier-syntax.ss
index ab199e8449..a84350f18a 100644
--- a/collects/r6rs/private/identifier-syntax.ss
+++ b/collects/r6rs/private/identifier-syntax.ss
@@ -1,6 +1,6 @@
 #lang scheme/base
 (require (for-syntax scheme/base)
-         (for-template (only-in scheme/base set!)))
+         (for-template (only-in scheme/base set! #%app)))
 
 (provide identifier-syntax)
 
diff --git a/collects/tests/r6rs/base.ss b/collects/tests/r6rs/base.ss
index c07fe9ad40..0db4d8d646 100644
--- a/collects/tests/r6rs/base.ss
+++ b/collects/tests/r6rs/base.ss
@@ -131,6 +131,9 @@
   (define-syntax p.car 
     (identifier-syntax (car p)))
 
+  (define-syntax kons
+    (identifier-syntax cons))
+
   ;; Not the same as in the report, because we avoid `set-car!':
   (define-syntax p2.car
     (identifier-syntax
@@ -1480,6 +1483,8 @@
     (test/unspec (set! p2.car 15))
     (test p2.car 15)
     (test p '(15 . 5))
+
+    (test (kons 1 2) '(1 . 2))
     
     ;;;
     ))
diff --git a/collects/tests/r6rs/syntax-case.ss b/collects/tests/r6rs/syntax-case.ss
index e1f43e7b0d..7214f0db4b 100644
--- a/collects/tests/r6rs/syntax-case.ss
+++ b/collects/tests/r6rs/syntax-case.ss
@@ -288,8 +288,5 @@
     (test/exn (syntax-violation 'form "bad" 7 8) &syntax)
 
     ;;
-    )
-
-  (run-syntax-case-tests)
-  (report-test-results))
+    ))