diff --git a/EventsServer/ServerDemo.hs b/EventsServer/ServerDemo.hs
--- a/EventsServer/ServerDemo.hs
+++ b/EventsServer/ServerDemo.hs
@@ -29,7 +29,7 @@
     do  args <- getArgs
         let ip = args !! 0
         let priorities = read (args !! 1) :: Int
-        Server.server (Just ip) priorities lookupPriorityServer lookupUnHandlerServer lookupHandlerServer parsersServer Nothing
+        Server.server (Just ip) priorities "1267" lookupPriorityServer lookupUnHandlerServer lookupHandlerServer parsersServer Nothing
 
 -- |Put your event models here. I haven't done so here, but you can define an event that will fire whenever a client disconnects and pass it into @Server.server@. This would be useful in an application requiring authentication to log out a client whenever they disconnect.
 data Event = Click Float Float | Init
diff --git a/Pup-Events-Demo.cabal b/Pup-Events-Demo.cabal
--- a/Pup-Events-Demo.cabal
+++ b/Pup-Events-Demo.cabal
@@ -1,5 +1,5 @@
 name:                   Pup-Events-Demo
-version:                1.2
+version:                1.3
 synopsis:               A networked event handling framework for hooking
                         into other programs.
 description:            Pup-Events is a networking enabled event handling
@@ -22,7 +22,7 @@
 executable server
     main-is:            EventsServer/ServerDemo.hs
     default-language:   Haskell98
-    build-depends:      base == 4.*, Pup-Events-Server >= 1.1.2, parsec >= 3.1.1
+    build-depends:      base == 4.*, Pup-Events-Server >= 1.2, parsec >= 3.1.1
     ghc-options:        -threaded
 
 executable demo