--- darwinports.tcl.orig	2006-10-14 17:25:51.000000000 +0200
+++ darwinports.tcl	2006-10-14 17:14:16.000000000 +0200
@@ -37,8 +37,8 @@
 
 namespace eval darwinports {
     namespace export bootstrap_options portinterp_options open_dports ui_priorities
-    variable bootstrap_options "portdbpath libpath binpath auto_path extra_env sources_conf prefix portdbformat portinstalltype portarchivemode portarchivepath portarchivetype portautoclean porttrace portverbose destroot_umask variants_conf rsync_server rsync_options rsync_dir startupitem_type xcodeversion xcodebuildcmd"
-    variable portinterp_options "portdbpath portpath portbuildpath auto_path prefix portsharepath registry.path registry.format registry.installtype portarchivemode portarchivepath portarchivetype portautoclean porttrace portverbose destroot_umask rsync_server rsync_options rsync_dir startupitem_type"
+    variable bootstrap_options "portdbpath libpath binpath auto_path extra_env sources_conf prefix portdbformat portinstalltype portarchivemode portarchivepath portarchivebinhost portarchivetype portautoclean porttrace portverbose destroot_umask variants_conf rsync_server rsync_options rsync_dir startupitem_type xcodeversion xcodebuildcmd"
+    variable portinterp_options "portdbpath portpath portbuildpath auto_path prefix portsharepath registry.path registry.format registry.installtype portarchivemode portarchivepath portarchivebinhost portarchivetype portautoclean porttrace portverbose destroot_umask rsync_server rsync_options rsync_dir startupitem_type"
     # deferred options are only computed when needed.
     # they are not exported to the trace thread.
     # they are not exported to the interpreter in system_options array.
@@ -365,7 +365,11 @@
 		set darwinports::portarchivepath [file join $portdbpath packages]
 		global darwinports::portarchivepath
 	}
-	
+	# Binhost location
+	if {![info exists portarchivebinhost]} {
+		set darwinports::portarchivebinhost "http://mac.vandeplas.com/packages"
+		global darwinports::portarchivebinhost
+	}
 	if {$portarchivemode == "yes"} {
 		if {![file isdirectory $portarchivepath]} {
 			if {![file exists $portarchivepath]} {