diff --git a/contrib/x11/examples/lindenmayer/lindenmayer.factor b/contrib/x11/examples/lindenmayer/lindenmayer.factor
index 0f420249d5..2e03834608 100644
--- a/contrib/x11/examples/lindenmayer/lindenmayer.factor
+++ b/contrib/x11/examples/lindenmayer/lindenmayer.factor
@@ -145,6 +145,8 @@ cond ;
 ! Lindenmayer string interpretation
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
+: last ( seq -- [ last-item ] ) dup length* 1 - swap tail ;
+
 SYMBOL: command-table
 
 : segment-command ( seg -- command ) 1 swap head ;
diff --git a/contrib/x11/examples/lindenmayer/load.factor b/contrib/x11/examples/lindenmayer/load.factor
index 58dbad21d9..7da2d70a19 100644
--- a/contrib/x11/examples/lindenmayer/load.factor
+++ b/contrib/x11/examples/lindenmayer/load.factor
@@ -1,4 +1,5 @@
 USING: parser words compiler sequences ;
-"lindenmayer.factor" run-file
-"viewer.factor" run-file
+
+"contrib/x11/examples/lindenmayer/lindenmayer.factor" run-resource
+"contrib/x11/examples/lindenmayer/viewer.factor" run-resource
 "lindenmayer" words [ try-compile ] each
\ No newline at end of file
diff --git a/contrib/x11/examples/lindenmayer/viewer.factor b/contrib/x11/examples/lindenmayer/viewer.factor
index 3b7e20d267..c738e85292 100644
--- a/contrib/x11/examples/lindenmayer/viewer.factor
+++ b/contrib/x11/examples/lindenmayer/viewer.factor
@@ -1,5 +1,5 @@
 USING: kernel alien math arrays sequences opengl namespaces concurrency
-xlib x x11 gl concurrent-widgets lindenmayer ;
+x11 x gl concurrent-widgets lindenmayer ;
 
 IN: lindenmayer