diff --git a/src/shrdlu/graphf.5 b/src/shrdlu/graphf.6
similarity index 99%
rename from src/shrdlu/graphf.5
rename to src/shrdlu/graphf.6
index 97004104..233c9f79 100644
--- a/src/shrdlu/graphf.5
+++ b/src/shrdlu/graphf.6
@@ -535,14 +535,13 @@ PRLOOP
  (P1)
  (PROG (H1 H2 H3 T1 T2 T3 T4)
  (COMMENT REGARDLESS OF WHAT DISPLAY-AS CALLS THE TABLE/, I CALL IT :TABLE)
-
        (COND ((SETQ H1 (ASSQ (CAAR P1) GP-LINES))
 	      (DISFLUSH (CADDDR (CDDR H1)))))
-       (COND ((EQ (CADDAR P1) (QUOTE /#PYRAMID))
+       (COND ((EQ (CADDAR P1) (QUOTE !PYRAMID))
 	      (GP-PYRAMID (CAAR P1) (CADDDR (CAR P1)) (CADDDR (CDAR P1))))
-	     ((EQ (CADDAR P1) (QUOTE /#BLOCK))
+	     ((EQ (CADDAR P1) (QUOTE !BLOCK))
 	      (GP-BLOCK (CAAR P1) (CADDDR (CAR P1)) (CADDDR (CDAR P1))))
-	     ((EQ (CADDAR P1) (QUOTE /#HAND))
+	     ((EQ (CADDAR P1) (QUOTE !HAND))
 	      (SETQ H1 (CAR (CDDDAR P1)))
 	      (SETQ H3 (GP-PROJECT (CAR H1) (CADR H1) (CADDR H1)))
 	      (SETQ H2 (DISCREATE (CAR H3) (CADR H3)))
@@ -557,9 +556,9 @@ PRLOOP
 			  H2
 			  H3
 			  T4)))
-	     ((EQ (CADDAR P1) (QUOTE /#BOX))
+	     ((EQ (CADDAR P1) (QUOTE !BOX))
 	      (GP-DRBOX (CAAR P1) (CADDDR (CAR P1)) (CADDDR (CDAR P1))))
-	     ((EQ (CADDAR P1) (QUOTE /#TABLE))
+	     ((EQ (CADDAR P1) (QUOTE !TABLE))
 	      (SETQ T1
 		    (LIST (QUOTE 0) (QUOTE 0))
 		    T2
@@ -730,7 +729,7 @@ PRLOOP
 		      DISPLAY
 		      PACKAGE
 		      THE
-		      /#BOX
+		      !BOX
 		      CONSISTS
 		      OF
 		      FOUR