diff --git a/ghcjs-hplay.cabal b/ghcjs-hplay.cabal
--- a/ghcjs-hplay.cabal
+++ b/ghcjs-hplay.cabal
@@ -1,5 +1,5 @@
 name: ghcjs-hplay
-version: 0.3.1
+version: 0.3.2
 cabal-version: >=1.10
 build-type: Simple
 license: BSD3
diff --git a/src/GHCJS/HPlay/View.hs b/src/GHCJS/HPlay/View.hs
--- a/src/GHCJS/HPlay/View.hs
+++ b/src/GHCJS/HPlay/View.hs
@@ -1067,7 +1067,7 @@
    runCont' cont= do
 
      mn <- getData
-     return () !> ("id mn",mn)
+
      when (isJust mn) $ let IDNUM n = fromJust mn in modify $  \s -> s{mfSequence=  n}
 
      setData Repeat               -- !!> "INITCLOSURE"