diff --git a/_web_server/server/playground-server.scm b/_web_server/server/playground-server.scm
index fc07686..2fe175a 100755
--- a/_web_server/server/playground-server.scm
+++ b/_web_server/server/playground-server.scm
@@ -343,19 +343,18 @@
   (let ((tstart (apply min (vcd-timestamps vcd)))
         (tend (apply max (vcd-timestamps vcd)))
         (signals (sort
-                  (remove
-                   (lambda (sig) (< (length (vcd-signal-scope sig)) 2))
-                   (vcd-signals vcd))
+                  (vcd-signals vcd)
                   (lambda (a b)
-                    (or
-                     (and (equal? (vcd-signal-name a) "clock")
-                          (not (equal? (vcd-signal-name b) "clock")))
+                    (and (not (equal? (vcd-signal-name b) "clock"))
+                         (or
+                          (and (equal? (vcd-signal-name a) "clock")
+                               (not (equal? (vcd-signal-name b) "clock")))
 
-                     (< (length (vcd-signal-scope a))
-                        (length (vcd-signal-scope b)))
+                          (< (length (vcd-signal-scope a))
+                             (length (vcd-signal-scope b)))
 
-                     (string-ci<? (vcd-signal-name a)
-                                  (vcd-signal-name b)))))))
+                          (string-ci<? (vcd-signal-name a)
+                                       (vcd-signal-name b))))))))
 
     (if (<= tend tstart)
         '()