Index: AAPClient/UI/DnaCodeReedsGescandScherm.pas
===================================================================
diff -u -r246 -r249
--- AAPClient/UI/DnaCodeReedsGescandScherm.pas	(.../DnaCodeReedsGescandScherm.pas)	(revision 246)
+++ AAPClient/UI/DnaCodeReedsGescandScherm.pas	(.../DnaCodeReedsGescandScherm.pas)	(revision 249)
@@ -135,9 +135,7 @@
   Response := TAgent.Create(UiContext).ZoekViaDnaCode(Code);
   try
     begin
-      if Assigned(Response.DnaCodes) then begin
-        result := DnaCodeStatus(Response.DnaCodes[0].Status);
-      end;
+        result := DnaCodeStatus(Response.DnaCodes);
     end;
   finally
     Response.Free;