diff --git a/extra/raptor/config.factor b/extra/raptor/config.factor
new file mode 100644
index 0000000000..09e3bf2c60
--- /dev/null
+++ b/extra/raptor/config.factor
@@ -0,0 +1,140 @@
+
+USING: namespaces unix.linux.if unix.linux.ifreq unix.linux.route ;
+
+IN: raptor
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+: configure-lo ( -- )
+  "lo" "127.0.0.1"      set-if-addr
+  "lo" { IFF_UP } flags set-if-flags ;
+
+: configure-eth1 ( -- )
+  "eth1" "192.168.1.10"                 set-if-addr
+  "eth1" { IFF_UP IFF_MULTICAST } flags set-if-flags ;
+
+: configure-route ( -- )
+  "0.0.0.0" "192.168.1.1" "0.0.0.0" { RTF_UP RTF_GATEWAY } flags route ;
+
+[
+  configure-lo
+  configure-eth1
+  configure-route
+] networking-hook set-global
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+[
+
+  ! rcS.d
+
+  "mountvirtfs"                     start-service
+  "hostname.sh"			    start-service
+  "keymap.sh"			    start-service
+  "linux-restricted-modules-common" start-service
+  "udev"                            start-service
+  "mountdevsubfs" 		    start-service
+  "module-init-tools" 		    start-service
+  "procps.sh" 			    start-service
+  "checkroot.sh"		    start-service
+  "mtab"			    start-service
+  "checkfs.sh" 			    start-service
+  "mountall.sh"			    start-service
+
+				    start-networking
+
+  "hwclock.sh"			    start-service
+  "displayconfig-hwprobe.py"	    start-service
+  "screen"			    start-service
+  "x11-common"			    start-service
+  "bootmisc.sh"			    start-service
+  "urandom"			    start-service
+  "console-screen.sh"		    start-service
+
+  ! rc2.d
+
+  "vbesave"	                    start-service
+  "acpid"			    start-service
+  "powernowd.early"		    start-service
+  "sysklogd"			    start-service
+  "klogd"			    start-service
+  "dbus"			    start-service
+  "apmd"			    start-service
+  "hotkey-setup"		    start-service
+  "laptop-mode"			    start-service
+  "makedev"			    start-service
+  "nvidia-kernel"		    start-service
+  "postfix"			    start-service
+  "powernowd"			    start-service
+  "ntp-server"			    start-service
+  "anacron"			    start-service
+  "atd"				    start-service
+  "cron"			    start-service
+  "binfmt-support"		    start-service
+  "acpi-support"		    start-service
+  "rc.local"			    start-service
+  "rmnologin"			    start-service
+
+  				    start-listeners
+				    start-gettys
+] boot-hook set-global
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+[
+  "anacron"                         stop-service
+  "atd" 			    stop-service
+  "cron" 			    stop-service
+  "acpi-support" 		    stop-service
+  "apmd" 			    stop-service
+  "dbus" 			    stop-service
+  "hotkey-setup" 		    stop-service
+  "laptop-mode" 		    stop-service
+  "makedev" 			    stop-service
+  "nvidia-kernel" 		    stop-service
+  "powernowd" 			    stop-service
+  "acpid" 			    stop-service
+  "hwclock.sh" 			    stop-service
+  "alsa-utils" 			    stop-service
+  "klogd" 			    stop-service
+  "binfmt-support" 		    stop-service
+  "sysklogd"                        stop-service
+  "linux-restricted-modules-common" stop-service
+  "sendsigs" 			    stop-service
+  "urandom" 			    stop-service
+  "umountnfs.sh" 		    stop-service
+  "networking" 			    stop-service
+  "umountfs" 			    stop-service
+  "umountroot" 			    stop-service
+  "reboot" 			    stop-service
+] reboot-hook set-global
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+[
+  "anacron"                         stop-service
+  "atd" 			    stop-service
+  "cron" 			    stop-service
+  "acpi-support" 		    stop-service
+  "apmd" 			    stop-service
+  "dbus" 			    stop-service
+  "hotkey-setup" 		    stop-service
+  "laptop-mode" 		    stop-service
+  "makedev" 			    stop-service
+  "nvidia-kernel" 		    stop-service
+  "postfix" 			    stop-service
+  "powernowd" 			    stop-service
+  "acpid" 			    stop-service
+  "hwclock.sh" 			    stop-service
+  "alsa-utils" 			    stop-service
+  "klogd" 			    stop-service
+  "binfmt-support" 		    stop-service
+  "sysklogd" 			    stop-service
+  "linux-restricted-modules-common" stop-service
+  "sendsigs" 			    stop-service
+  "urandom" 			    stop-service
+  "umountnfs.sh" 		    stop-service
+  "umountfs" 			    stop-service
+  "umountroot" 			    stop-service
+  "halt" 			    stop-service
+] shutdown-hook set-global
\ No newline at end of file
diff --git a/extra/raptor/raptor.factor b/extra/raptor/raptor.factor
new file mode 100644
index 0000000000..038477a3cd
--- /dev/null
+++ b/extra/raptor/raptor.factor
@@ -0,0 +1,60 @@
+
+USING: kernel parser namespaces threads unix.process combinators.cleave ;
+
+IN: raptor
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+SYMBOL: boot-hook
+SYMBOL: reboot-hook
+SYMBOL: shutdown-hook
+SYMBOL: networking-hook
+
+: reload-raptor-config ( -- ) "/etc/raptor/config.factor" run-file ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+USING: sequences unix ;
+
+: start-service ( name -- ) "/etc/init.d/" swap " start" 3append system drop ;
+: stop-service  ( name -- ) "/etc/init.d/" swap " stop"  3append system drop ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+: fork-exec-wait ( pathname args -- )
+  fork dup 0 = [ drop exec drop ] [ 2nip wait-for-pid ] if ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+: respawn ( pathname args -- ) [ fork-exec-wait ] [ respawn ] 2bi ;
+
+: start-gettys ( -- )
+  [ "/sbin/getty" { "getty" "38400" "tty5" } respawn ] in-thread
+  [ "/sbin/getty" { "getty" "38400" "tty6" } respawn ] in-thread ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+USING: io io.files io.streams.lines io.streams.plain io.streams.duplex
+       listener ;
+
+: tty-listener ( tty -- )
+  [ <file-reader> <line-reader>  ]
+  [ <file-writer> <plain-writer> ]
+  bi <duplex-stream> [ listener ] with-stream ;
+
+: forever ( quot -- ) [ call ] [ forever ] bi ;
+
+: start-listeners ( -- )
+  [ [ "/dev/tty2" tty-listener ] forever ] in-thread
+  [ [ "/dev/tty3" tty-listener ] forever ] in-thread
+  [ [ "/dev/tty4" tty-listener ] forever ] in-thread ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+: start-networking ( -- ) networking-hook  get call ;
+
+: boot     ( -- ) boot-hook     get call ;
+: reboot   ( -- ) reboot-hook   get call ;
+: shutdown ( -- ) shutdown-hook get call ;
+
+MAIN: boot
diff --git a/extra/raptor/readme-0.1.1 b/extra/raptor/readme-0.1.1
new file mode 100644
index 0000000000..303fb416c4
--- /dev/null
+++ b/extra/raptor/readme-0.1.1
@@ -0,0 +1,117 @@
+
+Raptor Linux
+
+*** Introduction ***
+
+Raptor Linux is a mod of Ubuntu 6.06 (Dapper Drake)
+
+This is unlikely to work on another version of Ubuntu, much less
+another Linux distribution.
+
+*** Install ***
+
+  ( scratchpad ) USE: raptor
+  ( scratchpad ) save
+
+  # mv -v /sbin/{init,init.orig}
+
+  # cp -v /scratch/factor/factor /sbin/init
+
+  # cp -v /scratch/factor/factor.image /sbin/init.image
+
+  # mkdir -v /etc/raptor
+
+  # cp -v /scratch/factor/extra/raptor/config.factor /etc/raptor/config.factor
+
+*** Static IP networking ***
+
+If you use a static IP in your network then Factor can take care of
+networking.
+
+  # emacs /etc/raptor/config.factor
+
+  (change the settings accordingly)
+
+The udev system has a hook to bring up ethernet interfaces when they
+are detected. Let's remove this hook since we'll be bringing up the
+interface. Actually, we'll move it, not delete it.
+
+  # mv -v /etc/udev/rules.d/85-ifupdown.rules /root
+
+*** DHCP networking ***
+
+If you're using dhcp then we'll fall back on what Ubuntu offers. In
+your config.factor change the line :
+
+     start-networking
+
+to
+
+	"loopback"   start-service
+	"networking" start-service
+
+Add these to your reboot-hook and shutdown-hook :
+
+	"loopback"   stop-service
+	"networking" stop-service
+
+*** Editing the hooks ***
+
+The items in boot-hook correspond to the things in '/etc/rcS.d' and
+'/etc/rc2.d'. Feel free to add and remove items from that hook. For
+example, I removed the printer services. I also removed other things
+that I didn't feel were necessary on my system.
+
+*** Grub ***
+
+Edit your '/boot/grub/menu.lst'. Basically, copy and paste your
+current good entry. My default entry is this:
+
+title           Ubuntu, kernel 2.6.15-28-686
+root            (hd0,0)
+kernel          /boot/vmlinuz-2.6.15-28-686 root=/dev/hda1 ro quiet splash
+initrd          /boot/initrd.img-2.6.15-28-686
+savedefault
+boot
+
+I pasted a copy above it and edited it to look like this:
+
+title           Raptor, kernel 2.6.15-28-686
+root            (hd0,0)
+kernel          /boot/vmlinuz-2.6.15-28-686 root=/dev/hda1 ro quiet -run=ubuntu.dapper.boot
+initrd          /boot/initrd.img-2.6.15-28-686
+savedefault
+boot
+
+* Note that I removed the 'splash' kernel option
+
+* Note the '-run=ubuntu.dapper.boot' option. Unfortunately, this isn't
+  working yet...
+
+*** Boot ***
+
+Reboot or turn on your computer. Eventually, hopefully, you'll be at a
+Factor prompt. Boot your system:
+
+  ( scratchpad ) boot
+
+You'll probably be prompted to select a vocab. Select 'raptor'.
+
+*** Now what ***
+
+The virtual consoles are allocated like so:
+
+  1 - Main listener console
+  2 - listener
+  3 - listener
+  4 - listener
+  5 - getty
+  6 - getty
+
+So you're next step might be to alt-f5, login, and run startx.
+
+*** Join the fun ***
+
+Take a loot at what happens during run levels S and 2. Implement a
+Factor version of something. Let me know about it.
+