Index: nano.tcl
==================================================================
--- nano.tcl
+++ nano.tcl
@@ -3032,12 +3032,11 @@
 	}
 
 	return $retval
 }
 
-# XXX:TODO: Which namespace should this go in ?
-proc ::nano::node::_randomSortList {args} {
+proc ::nano::internal::randomSortList {args} {
 	set list [lindex $args end]
 	set args [lrange $args 0 end-1]
 	set salt [expr {rand()}]
 	tailcall lsort {*}$args -command [list apply {{salt a b} {
 		if {$a eq $b} {
@@ -3273,11 +3272,11 @@
 		}
 
 		lappend completePeers $peerKey
 	}
 
-	set retval [::nano::node::_randomSortList -unique $completePeers]
+	set retval [::nano::internal::randomSortList -unique $completePeers]
 
 	return $retval
 }
 
 proc ::nano::protocol::parse::keepalive {extensions messageData} {