diff --git a/dotscape b/dotscape
index 06f7705..087e871 100755
Binary files a/dotscape and b/dotscape differ
diff --git a/imperative-shell/file-thread.sml b/imperative-shell/file-thread.sml
index ee18b80..4b2ab21 100644
--- a/imperative-shell/file-thread.sml
+++ b/imperative-shell/file-thread.sml
@@ -12,8 +12,8 @@ struct
       val _ =
         case Mailbox.recv fileMailbox of
           SAVE_TRIANGLES triangles => ()
+        | LOAD_TRIANGLES triangles => ()
         | EXPORT_TRIANGLES triangles => ()
-        | IMPORT_TRIANGLES => ()
     in
       run fileMailbox
     end
diff --git a/message-types/file-msg.sml b/message-types/file-msg.sml
index 46deb3b..963f7ab 100644
--- a/message-types/file-msg.sml
+++ b/message-types/file-msg.sml
@@ -2,14 +2,14 @@ signature FILE_MESSAGE =
 sig
   datatype t =
     SAVE_TRIANGLES of AppType.triangle list
+  | LOAD_TRIANGLES
   | EXPORT_TRIANGLES of AppType.triangle list
-  | IMPORT_TRIANGLES
 end
 
 structure FileMessage :> FILE_MESSAGE =
 struct
   datatype t =
     SAVE_TRIANGLES of AppType.triangle list
+  | LOAD_TRIANGLES
   | EXPORT_TRIANGLES of AppType.triangle list
-  | IMPORT_TRIANGLES
 end