updated floppy.scm to conform to the change made by Bill

updated floppy.scm to conform to the change made by Bill

     RCS file: /scheme/src/runtime/RCS/unxprm.scm,v
     Working file: unxprm.scm
     head: 1.23
     branch:
     locks: strict
     access list:
     symbolic names:
	     RELEASE_7_1_0: 1.9
	     RELEASE_7_0_0: 1.4
     comment leader: ";;; "
     keyword substitution: kv
     total revisions: 23;	selected revisions: 23
     description:

     ----------------------------
     revision 1.23
     date: 1993/01/12 19:01:28;  author: gjr;  state: Exp;  lines: +2 -5
     Remove current-file-time, replaced by get-time.