diff --git a/motif/lisp/timer-support.lisp b/motif/lisp/timer-support.lisp
index 793cd23910829ec9603ff8d2522407bceb74c81e..0c975576603c3ab75fcdbe22838f907f03ad3627 100644
--- a/motif/lisp/timer-support.lisp
+++ b/motif/lisp/timer-support.lisp
@@ -1,6 +1,6 @@
 ;;; -*- Mode: CLtL -*-
 
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/motif/lisp/timer-support.lisp,v 1.1 1994/10/27 17:44:22 ram Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/motif/lisp/timer-support.lisp,v 1.2 1994/10/28 22:15:28 ram Exp $")
 
 ;;; timers-support.lisp --
 ;;; Extension to CMUCL Motif Interface. Adding missing call for
@@ -27,10 +27,9 @@
 
 (defstruct (timer (:print-function print-timer)
 		  (:constructor make-timer
-				callback-proc
-				&optional args
-				&aux (id (incf *timers-count*))
-				)
+				(callback-proc
+				 &optional args
+				 &aux (id (incf *timers-count*))))
 		  ;; &rest for 'args' would be nicer, but it would
 		  ;; mess up the actual interface functions.
 		  )