Index: configure.ac
==================================================================
--- configure.ac
+++ configure.ac
@@ -13,11 +13,11 @@
 # GNU Affero General Public License for more details.
 
 # You should have received a copy of the GNU Affero General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
-AC_INIT([net2o], [0.7.2-20180607], [bernd@net2o.de], [net2o], [https://fossil.net2o.de/net2o/reportlist])
+AC_INIT([net2o], [0.7.2-20180613], [bernd@net2o.de], [net2o], [https://fossil.net2o.de/net2o/reportlist])
 AC_PREREQ([2.59])
 AC_CONFIG_MACRO_DIR([m4])
 AC_USE_SYSTEM_EXTENSIONS
 LT_INIT
 

Index: do
==================================================================
--- do
+++ do
@@ -1,10 +1,10 @@
 #!/bin/bash
 
 echo "This script builds net2o from scratch"
 
-GFORTH=gforth-0.7.9_20180607
+GFORTH=gforth-0.7.9_20180613
 
 if [ "$(uname -o)" = "Cygwin" ]
 then
     CONFOPT="--prefix=/usr $*"
 else

Index: helper.fs
==================================================================
--- helper.fs
+++ helper.fs
@@ -70,11 +70,12 @@
 Forward renat-all
 
 event: :>renat ( -- )  renat-all ;
 event: :>disconnect ( addr -- )  .disconnect-me ;
 : dht-beacon ( addr u -- )
-    <event 0 addr dht-connection !@ elit, :>disconnect ?query-task event>
+    0 addr dht-connection !@
+    ?dup-IF <event elit, :>disconnect ?query-task event> THEN
     <event :>renat main-up@ event> 2drop ;
 
 : dht-connect ( -- )
     dht-connection ?dup-IF  >o o to connection rdrop  EXIT  THEN
     $8 $8 dhtnick $@ nick>pk dhtroot

Index: wiki/commands.md
==================================================================
--- wiki/commands.md
+++ wiki/commands.md
@@ -1,8 +1,8 @@
 # Commands #
 
-Version 0.7.2-20180607.
+Version 0.7.2-20180613.
 
 net2o separates data and commands.  Data is passed through to higher
 layers, commands are interpreted when they arrive.  For connection
 requests, a special bit is set, and the address then isn't used as
 address, but as IV for the opportunistic encoding.