diff --git a/boot.img b/boot.img
deleted file mode 100755
index 2dc664a..0000000
Binary files a/boot.img and /dev/null differ
diff --git a/boot.jim b/boot.jim
index 819658e..9cb5a8c 100755
Binary files a/boot.jim and b/boot.jim differ
diff --git a/defs.jim b/defs.jim
index 1104381..d3c7ee0 100755
Binary files a/defs.jim and b/defs.jim differ
diff --git a/entity.jim b/entity.jim
index 56d59b3..a54d05a 100755
Binary files a/entity.jim and b/entity.jim differ
diff --git a/footer.jim b/footer.jim
index 5c726f9..88c1d82 100755
Binary files a/footer.jim and b/footer.jim differ
diff --git a/footer.jor b/footer.jor
index ebdc885..688609f 100755
--- a/footer.jor
+++ b/footer.jor
@@ -23,11 +23,9 @@ var footer-y
 
 var text-color
 WHITE text-color !
-
-: statusy 7 swap <rot text-color @ text ;
-: status0 10 statusy ;
-: status1 20 statusy ;
-: status2 30 statusy ;
+: textxy ( s x y ) <rot text-color @ text ;
+: portraity 1 swap textxy ;
+: statusy 7 swap textxy ;
 
 var textx
 var texty
@@ -57,7 +55,7 @@ var texttimer
 : clear
   text-color @
   WHITE text-color !
-  s"                                 " dup dup status0 status1 status2
+  s"                                 " dup dup 10 statusy 20 statusy 30 statusy
   text-color !
   6 textx !
   10 texty ! ;
@@ -76,4 +74,7 @@ var texttimer
 0 GREEN character pete
 1 MAGENTA character mary
 2 BROWN character chuck
+3 YELLOW character jeanne
 
+: noone WHITE text-color ! s"     " dup dup dup
+  8 portraity 16 portraity 24 portraity 32 portraity ;
diff --git a/game.exe b/game.exe
index e579c3f..53ffb0b 100755
Binary files a/game.exe and b/game.exe differ
diff --git a/game.img b/game.img
deleted file mode 100755
index 3fa9f28..0000000
Binary files a/game.img and /dev/null differ
diff --git a/game.jim b/game.jim
index 4f7254a..eb69e54 100755
Binary files a/game.jim and b/game.jim differ
diff --git a/game.prj b/game.prj
index 18d73f5..9a79db0 100755
Binary files a/game.prj and b/game.prj differ
diff --git a/gameboot.jor b/gameboot.jor
index a10c3d7..f4660c6 100755
--- a/gameboot.jor
+++ b/gameboot.jor
@@ -23,6 +23,7 @@ s" game.jor" loadfile
 intern pete.jor
 intern petehous.jor
 intern road.jor
+intern jeanne.jor
 
 :noname loadfile ; checkpoint _loadlevel
 ' _loadlevel ' loadlevel redefine
diff --git a/input.jim b/input.jim
index b0a17eb..80ccb2e 100755
Binary files a/input.jim and b/input.jim differ
diff --git a/jeanne.jim b/jeanne.jim
new file mode 100755
index 0000000..e375245
Binary files /dev/null and b/jeanne.jim differ
diff --git a/jeanne.jor b/jeanne.jor
new file mode 100755
index 0000000..f623628
--- /dev/null
+++ b/jeanne.jor
@@ -0,0 +1,45 @@
+( J E A N N E )
+
+16 18 W ' {horse} defentity e_chuck
+14 22 N ' {car} defentity car
+
+e_chuck :touch
+  pete say" Hey there, Chuck."
+  chuck say" * w h i n n y *\(Hey there, Pete.)"
+;entity
+
+car :touch
+ player move-entity 1 player.state DRIVING f!
+;entity
+
+:noname
+  reset-level
+  0 player.state DRIVING f!
+:| player yield
+   e_chuck yield
+   player.driving? not if car yield then
+   0 |; ' entities redefine
+
+ :|
+touch-begin S leaving? dup
+  if player.driving? not
+    if   pete say" I'm not walking."
+    else player move-entity 24 7 road.jor queue-level
+    then
+  then
+touch-next 6 21 2= dup
+  if player.driving? not
+    if
+      noone say" * knock knock *"
+      clear 30 sleep
+      pete say" Nobody home, I guess."
+      jeanne say" Go away before I call the\cops, Pete!"
+      pete say" Oh.\I guess she's still mad."
+    else
+      pete say" Jeanne hates me enough already\without driving through her\front door!"
+    then
+  then
+touch-last |; ' player-touch redefine
+
+s" jeanne.map" load-map
+; ' onload redefine
diff --git a/jeanne.map b/jeanne.map
new file mode 100755
index 0000000..d74b00a
Binary files /dev/null and b/jeanne.map differ
diff --git a/jorth.c b/jorth.c
index ece3d7f..8526c8c 100755
--- a/jorth.c
+++ b/jorth.c
@@ -553,22 +553,31 @@ void f_codepointer() {
 
 void f_lookup() { // name -- (codepointer flags) | (name 0)
   cell *entry = LATEST;
+  char *name = TOP().s;
+  int len = strlen(name);
+  DROP(1);
+
   while (entry) {
-    f_dup();
     PUSHP(entry);
-    f_wordname();
-    f_streq();
-    if (TOP().i) {
-      TOP().p = entry;
-      f_codepointer();
-      f_swap();
-      TOP().p = entry;
-      f_wordflags();
-      return;
+    f_wordflags();
+    if (len == (TOP().u & ~F_IMMEDIATE)) {
+      PUSHS(name);
+      PUSHP(entry);
+      f_wordname();
+      f_streq();
+      if (TOP().i) {
+	TOP().p = entry;
+	f_codepointer();
+	f_swap();
+	return;
+      }
+      DROP(2);
+    } else {
+      DROP(1);
     }
-    DROP(1);
     entry = entry->p;
   }
+  PUSHS(name);
   PUSHU(0);
 }
 
diff --git a/jorth.img b/jorth.img
deleted file mode 100755
index a67f4b8..0000000
Binary files a/jorth.img and /dev/null differ
diff --git a/map.jim b/map.jim
index d649db1..cc4b58a 100755
Binary files a/map.jim and b/map.jim differ
diff --git a/pete.jim b/pete.jim
index 760c238..7590dca 100755
Binary files a/pete.jim and b/pete.jim differ
diff --git a/petehous.jim b/petehous.jim
index 858ee6f..de2aa26 100755
Binary files a/petehous.jim and b/petehous.jim differ
diff --git a/portrait.tif b/portrait.tif
index d613391..d8eee3a 100755
Binary files a/portrait.tif and b/portrait.tif differ
diff --git a/repl.jim b/repl.jim
index 8d373a8..1757e50 100755
Binary files a/repl.jim and b/repl.jim differ
diff --git a/road.jim b/road.jim
index d87ecbc..47a1341 100755
Binary files a/road.jim and b/road.jim differ
diff --git a/road.jor b/road.jor
index 2b9da3c..17d08aa 100755
--- a/road.jor
+++ b/road.jor
@@ -14,7 +14,7 @@ touch-next 5 9 2= dup
 touch-next 13 6 2= dup
   if pete say" Old hiking trail." then
 touch-next 24 6 2= dup
-  if mary say" Welcome to my place, Pete!" then
+  if player move-entity 13 22 jeanne.jor queue-level then
 touch-next 39 33 2= dup
   if pete say" School's out for the day,\looks like." then
 touch-next 32 36 2= dup
diff --git a/road.map b/road.map
index 5f99885..0536e8d 100755
Binary files a/road.map and b/road.map differ