diff --git a/Main.hs b/Main.hs
--- a/Main.hs
+++ b/Main.hs
@@ -31,16 +31,15 @@
 	let graph = execGraph (apply $ exhaustive compileShare) (wrapGraph hypergraph)
 	UI.run 40 id layoutStep graph ruleTree
 
-layoutStep = do
-	withNodes $ \n → do
-		(cgf, cf, sf, rot) ← readOnly $ do
-			cgf ← centralGravitation n
-			cf ← coulombForce n
-			sf ← springForce 1.5 n
-			rot ← angularMomentum n
-			return (cgf, cf, sf, rot)
-		Unsafe.adjustNode (Position . sf (*0.9) . cgf (*0.01) . cf (\x → min (100/(x^2+0.1)) 10) . position) n
-		Unsafe.adjustNode (rot (*0.9)) n
+layoutStep n = do
+	(cgf, cf, sf, rot) ← readOnly $ do
+		cgf ← centralGravitation n
+		cf ← coulombForce n
+		sf ← springForce 1.5 n
+		rot ← angularMomentum n
+		return (cgf, cf, sf, rot)
+	Unsafe.adjustNode (Position . sf (*0.9) . cgf (*0.01) . cf (\x → min (100/(x^2+0.1)) 10) . position) n
+	Unsafe.adjustNode (rot (*0.9)) n
 
 ruleTree = Branch "All"
 	[Branch "All but Beta"
diff --git a/graph-rewriting-lambdascope.cabal b/graph-rewriting-lambdascope.cabal
--- a/graph-rewriting-lambdascope.cabal
+++ b/graph-rewriting-lambdascope.cabal
@@ -1,5 +1,5 @@
 Name:           graph-rewriting-lambdascope
-Version:        0.4.5
+Version:        0.4.6
 Copyright:      (c) 2010, Jan Rochel
 License:        BSD3
 License-File:	LICENSE
@@ -21,7 +21,7 @@
 	base-unicode-symbols >= 0.2 && < 0.3,
 	graph-rewriting >= 0.4.4 && < 0.5,
 	graph-rewriting-layout >= 0.4.1 && < 0.5,
-	graph-rewriting-gl >= 0.5 && < 0.6,
+	graph-rewriting-gl >= 0.6 && < 0.7,
 	parsec >= 2.1 && < 2.2,
 	GLUT >= 2.2 && < 2.3,
 	OpenGL >= 2.4 && < 2.5,