fix sort15 typo in DXProtHandle

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index b22fea82586a2bd75f75a48bb9f922a50728e89c..84afd64de0bfc477eec52849f8d84190e94798b1 100644 (file)
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -1559,7 +1559,7 @@ sub _add_thingy
                                                } else {
                                                        $user->sort('A');
                                                }
-                                               dbg("PCProt::_add_thingy node $call sort updated " . $user->sort15);
+                                               dbg("PCProt::_add_thingy node $call sort updated " . $user->sort);
                                        }
                                }
                        } else {