{
  gROOT->Reset();
  TCanvas *c[5];
  TH1F *h[5];
  for (Int_t i=0; i<5; i++) {
    c[i] = new TCanvas(Form("c%d",i),"Canvas",0,0,600,600);
    h[i] = new TH1F(Form("h%d",i),Form("Gauss %d",i),50,-4,4); 
    h[i]->FillRandom("gaus",1000);
    h[i]->Draw();
  }

  TString prefix = ""; // this works
//TString prefix = "./"; // this fails
  c[0]->Print(prefix+"plots.ps[");
  for (Int_t i=0; i<5; i++) {
    c[i]->Print(prefix+"plots.ps");
  }
  c[0]->Print(prefix+"plots.ps]");
}