diff --git a/_web_server/server/playground-server.scm b/_web_server/server/playground-server.scm
index 34983c5..fc07686 100755
--- a/_web_server/server/playground-server.scm
+++ b/_web_server/server/playground-server.scm
@@ -304,10 +304,10 @@
                                         (- x1 x0 (* data-hw 2))
                                         (- y1 y0))
                            (format-inex "<text x=\"~a\" y=\"~a\">" 0 text-position)
-                           (if (or (eq? sig-type 'real)
-                                   (< sig-width 4))
-                               value
-                               (string-upcase
+                           (string-upcase
+                            (if (or (eq? sig-type 'real)
+                                    (<= sig-width 4))
+                                value
                                 (vcd-binary->hex value #t)))
                            "</text></svg>"))))