Fixes bug 163982: Extra "" irritant in expander error

scheme/last-revision

@@ -1 +1 @@
-1099
+1100

scheme/psyntax.expander.ss

@@ -3358,9 +3358,15 @@
     (lambda (x . args)
       (unless (for-all string? args)
         (error 'syntax-error "invalid argument" args))
-      (error 'expander "invalid syntax"
-          (stx->datum x) (apply string-append args))))
-  
+      (raise 
+        (condition 
+          (make-who-condition 'expander)
+          (make-message-condition
+            (if (null? args) 
+                "invalid syntax"
+                (apply string-append args)))
+          (stx->datum x)))))
+
   (define identifier? (lambda (x) (id? x)))
   
   (define datum->syntax