.

original commit: 754d1c96a6f13c38cc31f7321aaf090bdbdb6d3e

collects/mzlib/class.ss

@@ -166,12 +166,13 @@
 			   [(private . rest)
 			    (bad "ill-formed private clause" stx)]
 			   [(form idp ...)
-			    (ormap (lambda (f) (module-identifier=? (syntax form) f))
-				   (list (quote-syntax public)
-					 (quote-syntax override)
-					 (quote-syntax public-final)
-					 (quote-syntax override-final)
-					 (quote-syntax inherit)))
+			    (and (identifier? (syntax form))
+				 (ormap (lambda (f) (module-identifier=? (syntax form) f))
+					(list (quote-syntax public)
+					      (quote-syntax override)
+					      (quote-syntax public-final)
+					      (quote-syntax override-final)
+					      (quote-syntax inherit))))
 			    (let ([form (syntax-e (syntax form))])
 			      (for-each
 			       (lambda (idp)
@@ -217,8 +218,8 @@
 				 [(null? l) null]
 				 [(and (stx-pair? (car l))
 				       (let ([id (stx-car (car l))])
-					 (identifier? id)
-					 (ormap (lambda (k) (module-identifier=? k id)) kws)))
+					 (and (identifier? id)
+					      (ormap (lambda (k) (module-identifier=? k id)) kws))))
 				  (if reverse?
 				      (loop (cdr l))
 				      (cons (car l) (loop (cdr l))))]
@@ -528,8 +529,11 @@
 					     [(define-values (id ...) expr)
 					      (syntax/loc e (set!-values (id ...) expr))]
 					     [(-init idp ...)
-					      (ormap (lambda (it) (module-identifier=? it (syntax -init)))
-						     (list (quote-syntax init) (quote-syntax init-field)))
+					      (and (identifier? (syntax -init))
+						   (ormap (lambda (it) 
+							    (module-identifier=? it (syntax -init)))
+							  (list (quote-syntax init)
+								(quote-syntax init-field))))
 					      (let ([ids (map 
 							  (lambda (idp)
 							    (if (identifier? idp)

collects/mzlib/etc.ss

@@ -193,6 +193,7 @@
 		     (lambda (defn)
 		       (let ([d (local-expand
 				 defn
+				 'internal-define
 				 (kernel-form-identifier-list 
 				  (quote-syntax here)))])
 			 (syntax-case d (define-values)

collects/mzlib/private/sigutil.ss

@@ -469,6 +469,7 @@
 					 (if (eof-object? s)
 					   s
 					   (local-expand s    
+							 'internal-define
 							 (append
 							  user-stx-forms
 							  local-vars))))]

collects/mzlib/unit.ss

@@ -90,6 +90,7 @@
 				 (lambda (defn-or-expr)
 				   (local-expand
 				    defn-or-expr
+				    'internal-define
 				    (append
 				     (kernel-form-identifier-list (quote-syntax here))
 				     declared-names)))