diff --git a/collects/mztake/demos/sine/sine-mztake.ss b/collects/mztake/demos/sine/sine-mztake.ss
index 87db85a492..f34366b8c3 100644
--- a/collects/mztake/demos/sine/sine-mztake.ss
+++ b/collects/mztake/demos/sine/sine-mztake.ss
@@ -22,5 +22,5 @@
               [sin-x (+ 200 (* 100 sin-x))])
           (history-b (changes (make-cute-circle x sin-x)) 50))))
 
-(set-running! (even? seconds))
+(set-running! #t)
 
diff --git a/collects/mztake/demos/sprofiler/sprofiler.ss b/collects/mztake/demos/sprofiler/sprofiler-mztake.ss
similarity index 83%
rename from collects/mztake/demos/sprofiler/sprofiler.ss
rename to collects/mztake/demos/sprofiler/sprofiler-mztake.ss
index 76e17d706a..c7bd70cc90 100644
--- a/collects/mztake/demos/sprofiler/sprofiler.ss
+++ b/collects/mztake/demos/sprofiler/sprofiler-mztake.ss
@@ -10,7 +10,7 @@
 
 (define pings (make-hash 'equal))
 
-((changes where)
+((changes (where))
  . ==> . (match-lambda [(line function context rest ...) 
                         (hash-table-increment! pings (list function context))]
                        [_ (void)]))
@@ -19,3 +19,6 @@
 
 (set-running-e! (merge-e (clicks . -=> . false)
                          (clicks . -=> . true)))
+
+(define (show-profile)
+  (quicksort (hash-pairs pings) (lambda (a b) (> (second a) (second b)))))