Index: /trunk/source/cocoa-ide/ide-contents/Resources/English.lproj/updateCCL.nib/designable.nib
===================================================================
--- /trunk/source/cocoa-ide/ide-contents/Resources/English.lproj/updateCCL.nib/designable.nib	(revision 9666)
+++ /trunk/source/cocoa-ide/ide-contents/Resources/English.lproj/updateCCL.nib/designable.nib	(revision 9667)
@@ -9,5 +9,5 @@
 		<object class="NSMutableArray" key="IBDocument.EditedObjectIDs">
 			<bool key="EncodedWithXMLCoder">YES</bool>
-			<integer value="2"/>
+			<integer value="1" id="9"/>
 		</object>
 		<object class="NSArray" key="IBDocument.PluginDependencies">
@@ -79,5 +79,5 @@
 							<reference key="NSNextResponder" ref="1006"/>
 							<int key="NSvFlags">268</int>
-							<string key="NSFrame">{{271, 12}, {96, 32}}</string>
+							<string key="NSFrame">{{175, 12}, {96, 32}}</string>
 							<reference key="NSSuperview" ref="1006"/>
 							<bool key="NSEnabled">YES</bool>
@@ -95,5 +95,5 @@
 								<int key="NSButtonFlags2">129</int>
 								<string key="NSAlternateContents"/>
-								<string key="NSKeyEquivalent"/>
+								<string type="base64-UTF8" key="NSKeyEquivalent">DQ</string>
 								<int key="NSPeriodicDelay">200</int>
 								<int key="NSPeriodicInterval">25</int>
@@ -103,5 +103,5 @@
 							<reference key="NSNextResponder" ref="1006"/>
 							<int key="NSvFlags">268</int>
-							<string key="NSFrame">{{175, 12}, {96, 32}}</string>
+							<string key="NSFrame">{{271, 12}, {96, 32}}</string>
 							<reference key="NSSuperview" ref="1006"/>
 							<bool key="NSEnabled">YES</bool>
@@ -200,6 +200,6 @@
 							<bool key="EncodedWithXMLCoder">YES</bool>
 							<reference ref="380836188"/>
+							<reference ref="626795059"/>
 							<reference ref="653458570"/>
-							<reference ref="626795059"/>
 						</object>
 						<reference key="parent" ref="1005"/>
@@ -278,5 +278,5 @@
 					<string>com.apple.InterfaceBuilder.CocoaPlugin</string>
 					<string>{{323, 833}, {381, 123}}</string>
-					<integer value="1"/>
+					<reference ref="9"/>
 					<string>{196, 240}</string>
 					<string>{{357, 418}, {480, 270}}</string>
Index: /trunk/source/cocoa-ide/ide-self-update.lisp
===================================================================
--- /trunk/source/cocoa-ide/ide-self-update.lisp	(revision 9666)
+++ /trunk/source/cocoa-ide/ide-self-update.lisp	(revision 9667)
@@ -152,4 +152,19 @@
         nil)))
 
+;;; -----------------------------------------------------------------
+;;; svn updates
+;;; -----------------------------------------------------------------
+
+(defun run-svn-update ()
+  (format t "~%running svn self-update...~%")
+  (let* ((ccl-dir (gui::find-ccl-directory))
+         (ccl-svn-dir (merge-pathnames ".svn/" ccl-dir)))
+    (if (validate-svn-data-pathname ccl-svn-dir)
+        (format t "~%updating...~%")
+        (#_NSRunInformationalAlertPanel #@"Self-update Cancelled"
+                                        #@"Subversion self-update failed because the running Lisp's CCL directory does not appear to be under revision control (it doesn't exist, or doesn't contain a '.svn/' subdirectory)."
+                                        #@"Okay"
+                                        +null-ptr+
+                                        +null-ptr+))))
 
 ;;; -----------------------------------------------------------------
@@ -169,4 +184,5 @@
   (declare (ignore sender))
   (#/stopModalWithCode: (#/sharedApplication (@class ns-application)) 1)
+  (run-svn-update)
   (#/orderOut: (update-window *update-ccl-window-controller*) +null-ptr+))