--- a/etng-r2/compile-to-scheme.scm Thu Jan 22 17:48:59 2009 +0000
+++ b/etng-r2/compile-to-scheme.scm Thu Jan 22 17:49:18 2009 +0000
@@ -64,7 +64,7 @@
(thunk receiver)))
((number? via) (etng-send-via-named-proxy receiver 'numberProxy message))
((string? via) (etng-send-via-named-proxy receiver 'stringProxy message))
- ((symbol? via) (etng-send-via-named-proxy receiver 'symbolProxy message))
+ ((qname-or-symbol? via) (etng-send-via-named-proxy receiver 'symbolProxy message))
((vector? via) (etng-send-via-named-proxy receiver 'tupleProxy message))
((not via) (etng-send-via-named-proxy receiver 'falseProxy message))
((eq? via #t) (etng-send-via-named-proxy receiver 'trueProxy message))