diff --git a/Help/hsc3-dot.help.lhs b/Help/hsc3-dot.help.lhs
--- a/Help/hsc3-dot.help.lhs
+++ b/Help/hsc3-dot.help.lhs
@@ -1,4 +1,4 @@
-> import Sound.SC3
+> import Sound.SC3.Monadic
 > import Sound.SC3.UGen.Dot
 
 Simple a-rate only graph.
@@ -20,7 +20,7 @@
 
 With control input
 
-> let f = Control KR "freq" 440
+> let f = control KR "freq" 440
 > in draw (out 0 (sinOsc AR f 0 * 0.1))
 
 With multiple channel expansion.
diff --git a/README b/README
--- a/README
+++ b/README
@@ -4,10 +4,10 @@
 graphs.  The graph rendering is delegated to graphviz, which must be
 installed.
 
-  http://slavepianos.org/rd/
+  http://slavepianos.org/rd/?t=hsc3-dot
   http://haskell.org/
   http://audiosynth.com/
   http://graphviz.org/
 
-(c) rohan drape, 2006-2009
+(c) rohan drape, 2006-2010
     gpl, http://gnu.org/copyleft/
diff --git a/Sound/SC3/UGen/Dot.hs b/Sound/SC3/UGen/Dot.hs
--- a/Sound/SC3/UGen/Dot.hs
+++ b/Sound/SC3/UGen/Dot.hs
@@ -58,13 +58,13 @@
 
 label :: Node -> String
 label (NodeC n _) = "N_" ++ show n
-label (NodeK n _ _ _ ) = "C_" ++ show n
+label (NodeK n _ _ _ _) = "C_" ++ show n
 label (NodeU n _ _ _ _ _ _) = "U_" ++ show n
 label (NodeP n _ _) = "U_" ++ show n
 
 port_nid :: FromPort -> Int
 port_nid (C n) = n
-port_nid (K n) = n
+port_nid (K n _) = n
 port_nid (U n _) = n
 
 port_indx :: FromPort -> Int
@@ -110,7 +110,9 @@
 name n _ = n
 
 is_implicit_control :: Node -> Bool
-is_implicit_control (NodeU x _ s _ _ _ _) = x == -1 && s == "Control"
+is_implicit_control (NodeU x _ s _ _ _ _) =
+    let cs = ["AudioControl", "Control", "TrigControl"]
+    in x == -1 && s `elem` cs
 is_implicit_control _ = False
 
 dot_node_u :: Graph -> Node -> String
@@ -138,11 +140,11 @@
 draw_with :: UGen -> String -> IO ()
 draw_with u v =
     do d <- getTemporaryDirectory
-       let f = d </> "hsc.dot"
+       let f = d </> "hsc3.dot"
        bracket (openFile f WriteMode)
                hClose
                (flip hPutStr (dot u))
-       system $ v ++ " " ++ f
+       system (v ++ " " ++ f)
        return ()
 
 -- Read the environment variable @DOTVIEWER@, the default value is
diff --git a/hsc3-dot.cabal b/hsc3-dot.cabal
--- a/hsc3-dot.cabal
+++ b/hsc3-dot.cabal
@@ -1,16 +1,16 @@
 Name:              hsc3-dot
-Version:           0.7
+Version:           0.8
 Synopsis:          haskell supercollider graph drawing
 Description:       dot format graph generator for SuperCollider 
                    unit generator graphs constructed using hsc3.
 License:           GPL
 Category:          Sound
-Copyright:         (c) Rohan Drape, 2006-2009
+Copyright:         (c) Rohan Drape, 2006-2010
 Author:            Rohan Drape
 Maintainer:        rd@slavepianos.org
 Stability:         Experimental
-Homepage:          http://slavepianos.org/rd/f/890257/
-Tested-With:       GHC == 6.8.2
+Homepage:          http://slavepianos.org/rd/?t=hsc3-dot
+Tested-With:       GHC == 6.10.3
 Build-Type:        Simple
 Cabal-Version:     >= 1.6
 
@@ -21,7 +21,12 @@
   Build-Depends:   base == 3.*,
                    directory,
                    filepath,
-                   hsc3 == 0.7,
+                   hsc3 == 0.8,
                    process
   GHC-Options:     -Wall -fwarn-tabs
   Exposed-modules: Sound.SC3.UGen.Dot
+
+
+Source-Repository  head
+  Type:            darcs
+  Location:        http://slavepianos.org/~rd/sw/hsc3-dot/