[Follow quote changes in SLOT-VALUE
attila.lendvai@gmail.com**20070416143603] hunk ./src/js.lisp 846
-                  (if (symbolp (sv-slot sv))
-		      (format nil ".~A" (symbol-to-js (sv-slot sv)))
+                  (if (typep (sv-slot sv) 'js-quote)
+                      (if (symbolp (value (sv-slot sv)))
+                          (format nil ".~A" (symbol-to-js (value (sv-slot sv))))
+                          (format nil ".~A" (first (js-to-strings (sv-slot sv) 0))))