From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 22 Jan 1998 23:28:54 +0000 (+0000)
Subject: Fix random bug caused by changes in revision 1.16.
X-Git-Tag: 20090517-FFI~4889
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a7668cbe28c52e0df4aa197bc56a4470a6fc2104;p=mit-scheme.git

Fix random bug caused by changes in revision 1.16.
---

diff --git a/v7/src/6001/floppy.scm b/v7/src/6001/floppy.scm
index f51dd8900..613847bdd 100644
--- a/v7/src/6001/floppy.scm
+++ b/v7/src/6001/floppy.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: floppy.scm,v 1.20 1998/01/22 23:07:38 cph Exp $
+$Id: floppy.scm,v 1.21 1998/01/22 23:28:54 cph Exp $
 
 Copyright (c) 1992-98 Massachusetts Institute of Technology
 
@@ -116,7 +116,8 @@ insert it into the floppy drive.")
 Again, use the File Manager to format the floppy.")
 	      ((OS/2)
 	       "
-Again, use the Drive object to format the floppy.")))
+Again, use the Drive object to format the floppy.")
+	      (else "")))
 	   (append-string
 	    "
 When you have done this, type any character to continue.")