make derived-from-... name a symbol in a class record

svn: r5443
2007-01-24 02:34:38 +00:00 · 2007-01-24 02:34:38 +00:00 · c0c04fb2fc
commit c0c04fb2fc
parent 898e50625b
1 changed files with 1 additions and 1 deletions
--- a/collects/mzlib/private/class-internal.ss
+++ b/collects/mzlib/private/class-internal.ss
@ -1718,7 +1718,7 @@
 		       (and s 
 			    (not (eq? super object%))
 			    (if (symbol? s)
-				(format "derived-from-~a" s)
+				(string->symbol (format "derived-from-~a" s))
 				s))))]
 	   ;; Combine method lists
 	   [public-names (append pubment-names public-final-names public-normal-names)]