-

private/web-racket.rkt

@@ -36,6 +36,7 @@
            ww-debug
            ww-error
            ww-set-log-level
+           ww-log-level
 
            (all-from-out "css.rkt")
            (all-from-out "menu.rkt")

private/web-wire.rkt

@@ -137,7 +137,7 @@
   
   (define (ww-set-log-level level)
     (set! _ww-log-level level)
-    (unless (eq? ww-current-handle #f)
+    (when (not (eq? ww-current-handle #f))
       (ww-log-level _ww-log-level))
     )