diff --git a/lib/net/ber.rb b/lib/net/ber.rb
index 6f7b5af..f01b767 100644
--- a/lib/net/ber.rb
+++ b/lib/net/ber.rb
@@ -104,6 +104,7 @@ module Net
 
       newobj = read contentlength
 
+      # This exceptionally clever and clear bit of code is verrrry slow.
       objtype = nil
       [syntax, BuiltinSyntax].each {|syn|
         if syn && (ot = syn[tagclass]) && (ot = ot[encoding]) && ot[tag]