anchor.diff:            vars.add('canonical', TFHIRObjectText.create(canonical));
             vars.add('FHIRVersion', TFHIRObjectText.create(FHIRVersion));
             vars.add('count', TFHIRObjectText.create(conn.CountSQL('Select count(*) from PackageVersions')));
  -          vars.add('prefix', TFHIRObjectText.create(AbsoluteUrl(false)));
  +          vars.add('prefix', TFHIRObjectText.create(AbsoluteUrl(secure)));
             vars.add('ver', TFHIRObjectText.create('4.0.1'));
             vars.add('r2selected', TFHIRObjectText.create(sel('R2', FHIRVersion)));
             vars.add('r3selected', TFHIRObjectText.create(sel('R3', FHIRVersion)));
             vars.add('r4selected', TFHIRObjectText.create(sel('R4', FHIRVersion)));
  -          vars.add('matches', TFHIRObjectText.create(genTable(AbsoluteUrl(false)+'/catalog?name='+name+'&fhirVersion='+FHIRVersion+'&canonical='+canonical, list, readSort(sort), sort.startsWith('-'), true, false)));
  +          vars.add('matches', TFHIRObjectText.create(genTable(AbsoluteUrl(secure)+'/catalog?name='+name+'&fhirVersion='+FHIRVersion+'&canonical='+canonical, list, readSort(sort), sort.startsWith('-'), true, false)));
             vars.add('status', TFHIRObjectText.create(status));
  -          returnFile(request, response, nil, request.Document, 'packages-search.html', false, vars);
  +          returnFile(request, response, nil, request.Document, 'packages-search.html', secure, vars);
           finally
             vars.free;
           end;
  
positive.code:     begin
        if not pm.has('lastUpdated') then
        begin
          serveSearch(pm['name'], pm['canonical'], pm['fhirversion'], pm['sort'], request, response);
          result := 'Search Packages';
        end
        else if pm['lastUpdated'].startsWith('-') then
  
negative.code:     result := '';
  end;
  
  procedure TFHIRPackageWebServer.serveSearch(name, canonical, FHIRVersion, sort : String; secure : boolean; request : TIdHTTPRequestInfo; response : TIdHTTPResponseInfo);
  var
    conn : TFDBConnection;
    json : TJsonArray;
  