--- DictConnection.m.ORG	Sun Apr  2 14:11:56 2006
+++ DictConnection.m	Sun Apr  2 14:19:29 2006
@@ -21,6 +21,7 @@
 
 #import "NSString+Clickable.h"
 
+#define LOG(format, args...)	[self log: [NSString stringWithFormat: format, ##args]];
 
 @implementation DictConnection
 
@@ -49,7 +50,14 @@
 
 -(id)init
 {
-  return [self initWithHost: [NSHost hostWithName: @"dict.org"]];
+//  return [self initWithHost: [NSHost hostWithName: @"dict.org"]];
+  NSString
+    *hostname = nil;
+  
+  hostname = [[NSUserDefaults standardUserDefaults] objectForKey: @"Dict Server"];
+  LOG(@"Using server <%@>", hostname);
+  
+  return [self initWithHost: [NSHost hostWithName: hostname]];
 }
 
 -(void)dealloc
@@ -70,7 +78,7 @@
 {
   [self log: @"Sending client String:"];
   [self log: clientName];
-  
+
   [writer writeLine:
 	    [NSString stringWithFormat: @"client \"%@\"\r\n",
 		      clientName]];