diff --git a/ChangeLog.n b/ChangeLog.n
index 96bde7c01ba49bc530207f444265f0236db2be6c..4fcbbdba9d3755c6422710e9fa38d4eebb4b9a62 100644
--- a/ChangeLog.n
+++ b/ChangeLog.n
@@ -1,3 +1,8 @@
+2007-07-18  Kevin Layer  <layer@gemini.franz.com>
+
+	* tk-silica/xt-silica.lisp (restart-port): bug16740: fix badly
+	  placed paren (from patch)
+
 2007-05-16  Andreas Fuchs  <afuchs@franz.com>
 
 	* xlib/xlib-funs.lisp: new function xkeycodetokeysym
@@ -6185,4 +6190,4 @@ IGNORE JDI SPECIFIC CHANGES TO Makefile
 	Lots of other stuff
 
 *******************************************************************************
-$Revision: 2.35 $
+$Revision: 2.36 $
diff --git a/tk-silica/xt-silica.lisp b/tk-silica/xt-silica.lisp
index c29521cd2db78ecf91d1bc70b618b929dc125640..dcd494fdb437643fc3922ef6962967b2d225422f 100644
--- a/tk-silica/xt-silica.lisp
+++ b/tk-silica/xt-silica.lisp
@@ -16,7 +16,7 @@
 ;; Commercial Software developed at private expense as specified in
 ;; DOD FAR Supplement 52.227-7013 (c) (1) (ii), as applicable.
 ;;
-;; $Id: xt-silica.lisp,v 2.10 2007/06/06 17:15:06 layer Exp $
+;; $Id: xt-silica.lisp,v 2.11 2007/07/18 18:00:13 layer Exp $
 
 (in-package :xm-silica)
 
@@ -98,9 +98,9 @@
 	     :priority 1000)
        #'port-event-loop port))
     (setf (getf (mp:process-property-list process) :no-interrupts) t)
-    (setf (port-process port) process))
+    (setf (port-process port) process)
     ;; Find out the modifier->modbit mapping on the display.
-    (setup-modifier-key-mapping port))
+    (setup-modifier-key-mapping port)))
 
 (defparameter *use-color* t)		; For debugging monochrome